home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / comm / vt10029a / part02 / 2.9-2.9A
Text File  |  1990-02-24  |  53KB  |  1,840 lines
  1. Enclosed are the patches to bring version 2.9 of VT100 up to version 2.9A.
  2. These patches are context diffs which may be applied by hand or by using
  3. * patch version 2.0 available from Fish disk # 129 or
  4. * patch version 2.0.1.6 (patchlevel 12) available from Fish disk # 296.
  5. If you use one of the patch programs, make a copy of your current VT100
  6. source (fopr safekeeping), CD to the directory containing the source and
  7. say:
  8.     patch < 2.9-2.9A
  9. where "2.9-2.9A" is the name of this file.
  10.  
  11. These patches fix a number of problems, some of them relatively serious
  12. so I encourage you to apply them as soon as possible.  These patches also
  13. provide a new command STRIP ON/OFF and an equivalent menu option under the
  14. Parity menu.  STRIP will discard parity from data from your host which is
  15. destined for your terminal.  If full-screen editors don't work from your
  16. host (e.g. you're seeing funny things like [0;0H). then try STRIP.
  17.  
  18. If you encounter any problems with VT100, please send e-mail to me.
  19. --
  20. Tony Sumrall   author of VT100 2.9 (and 2.8a and 2.8 and...)
  21. acs@pccuts.pcc.amdahl.com -or- amdahl!pccuts!acs
  22.  
  23. Index: vt100.h
  24. Prereq: 891003)
  25. *** ./vt100.h    Tue Feb 13 09:54:54 1990
  26. --- ../2.9A/vt100.h    Tue Feb 13 09:55:08 1990
  27. ***************
  28. *** 1,7 ****
  29. --- 1,22 ----
  30. + #define HRCSID "$RCSfile: vt100.h,v $ $Revision: 1.4 $"
  31. + 
  32.   /*********************************************************************
  33.    *  a terminal program that has ascii and xmodem transfer capability
  34.    *            :ts=8
  35.    *
  36. +  * $Log:    vt100.h,v $
  37. +  * Revision 1.4  90/02/12  20:23:52  acs
  38. +  * 1) Update date stamp in VERSION for the release of 2.9A.
  39. +  * 2) define HRCSID instead of declaring it static char.
  40. +  * 
  41. +  * Revision 1.3  89/12/19  20:39:14  acs
  42. +  * Updated version and date stamp.
  43. +  * 
  44. +  * Revision 1.2  89/11/06  20:58:52  acs
  45. +  * 1) Support for new STRIP command and menu option.
  46. +  * 2) New window title (date change).
  47. +  * 3) Add RCS id and change log.
  48. +  * 
  49.    *    v2.9 ACS - See change summary.
  50.    *    v2.8a 880331 ACS - Update title to 2.8A.
  51.    *    v2.7 870825 ACS - See README.
  52. ***************
  53. *** 23,29 ****
  54.    ********************************************************************/
  55.   
  56.   /********* major version (used for title of terminal window) *********/
  57. ! #define    VERSION    "VT100 (V2.9 ACS 891003) Terminal Window"
  58.   
  59.   /*********** ########  define the compiler type here ######## ********/
  60.   #define    LATTICE    0
  61. --- 38,44 ----
  62.    ********************************************************************/
  63.   
  64.   /********* major version (used for title of terminal window) *********/
  65. ! #define    VERSION    "VT100 (V2.9A ACS 900212) Terminal Window"
  66.   
  67.   /*********** ########  define the compiler type here ######## ********/
  68.   #define    LATTICE    0
  69. ***************
  70. *** 100,106 ****
  71.   #define EXTMAX 10    /* number of external xfer pgms allowed */
  72.   #define COMMAX 4    /* number of communication sub menus */
  73.   #define RSMAX 5        /* speed menu items */
  74. ! #define PARMAX 5    /* parity items */
  75.   #define XFMAX 4        /* transfer mode items */
  76.   #define SCRIPTMAX 3    /* script menu items */
  77.   #define UTILMAX 12    /* utility menu */
  78. --- 115,121 ----
  79.   #define EXTMAX 10    /* number of external xfer pgms allowed */
  80.   #define COMMAX 4    /* number of communication sub menus */
  81.   #define RSMAX 5        /* speed menu items */
  82. ! #define PARMAX 7    /* parity items */
  83.   #define XFMAX 4        /* transfer mode items */
  84.   #define SCRIPTMAX 3    /* script menu items */
  85.   #define UTILMAX 12    /* utility menu */
  86. ***************
  87. *** 264,270 ****
  88.   extern int    p_foreground,p_background,p_bold,p_cursor,p_lines,p_mode;
  89.   extern int    p_parity,p_volume,p_wrap,p_echo,p_keyapp,p_curapp,p_bs_del;
  90.   extern int    p_xbeep, p_xproto, p_convert,p_autochop, p_kmaxpack, p_unit;
  91. ! extern int    p_fontsize, p_shared, p_mouse_up, p_mouse_down;
  92.   extern char    p_keyscript;
  93.   extern long    p_break;
  94.   extern char    *p_font, *p_device, *p_f[11],*p_F[10];
  95. --- 279,285 ----
  96.   extern int    p_foreground,p_background,p_bold,p_cursor,p_lines,p_mode;
  97.   extern int    p_parity,p_volume,p_wrap,p_echo,p_keyapp,p_curapp,p_bs_del;
  98.   extern int    p_xbeep, p_xproto, p_convert,p_autochop, p_kmaxpack, p_unit;
  99. ! extern int      p_fontsize, p_shared, p_mouse_up, p_mouse_down, p_strip;
  100.   extern char    p_keyscript;
  101.   extern long    p_break;
  102.   extern char    *p_font, *p_device, *p_f[11],*p_F[10];
  103. ***************
  104. *** 325,332 ****
  105.           cmd_ac(), cmd_appcur(), cmd_baud(), cmd_bt(), cmd_conv(),
  106.           cmd_echo(), cmd_exit(), cmd_ext(), cmd_fnc(), cmd_key(),
  107.           cmd_kmode(), cmd_kmaxpk(), cmd_mode(), cmd_mouse(),
  108. !         cmd_numkey(), cmd_parity(), cmd_share(), cmd_short(),
  109. !         cmd_swap(), cmd_wrap(), cmd_xbeep(), cmd_xproto();
  110.   
  111.           /* rexx-only commands */
  112.   extern int    cmd_rx(), cmd_fwd();
  113. --- 340,348 ----
  114.           cmd_ac(), cmd_appcur(), cmd_baud(), cmd_bt(), cmd_conv(),
  115.           cmd_echo(), cmd_exit(), cmd_ext(), cmd_fnc(), cmd_key(),
  116.           cmd_kmode(), cmd_kmaxpk(), cmd_mode(), cmd_mouse(),
  117. !         cmd_numkey(), cmd_parity(), cmd_strip(), cmd_share(),
  118. !         cmd_short(), cmd_swap(), cmd_wrap(), cmd_xbeep(),
  119. !         cmd_xproto();
  120.   
  121.           /* rexx-only commands */
  122.   extern int    cmd_rx(), cmd_fwd();
  123. Index: expand.c
  124. *** ./expand.c    Tue Feb 13 09:54:48 1990
  125. --- ../2.9A/expand.c    Tue Feb 13 09:55:06 1990
  126. ***************
  127. *** 1,7 ****
  128. --- 1,13 ----
  129. + static char rcsid[] = "$RCSfile: expand.c,v $ $Revision: 1.2 $";
  130. + 
  131.   /*************************************************************
  132.    * vt100 terminal emulator - Wild card and Directory support
  133.    *            :ts=8
  134.    *
  135. +  * $Log:    expand.c,v $
  136. +  * Revision 1.2  89/12/19  20:38:41  acs
  137. +  * Added RCS id and change log.
  138. +  * 
  139.    *    v2.9 ACS - See change summary.
  140.    *    v2.7 870825 ACS - Use the *InfoMsg*() routines in window.c rather
  141.    *              than req().
  142. Index: init.c
  143. *** ./init.c    Tue Feb 13 09:54:49 1990
  144. --- ../2.9A/init.c    Tue Feb 13 09:55:06 1990
  145. ***************
  146. *** 1,7 ****
  147. --- 1,27 ----
  148. + static char rcsid[] = "$RCSfile: init.c,v $ $Revision: 1.4 $";
  149. + 
  150.   /***************************************************************
  151.    * vt100 - terminal emulator - initialization
  152.    *                :ts=8
  153.    *
  154. +  * $Log:    init.c,v $
  155. +  * Revision 1.4  89/12/12  22:13:56  acs
  156. +  * 1) Strip excess blanks from the rest of the menu items.
  157. +  * 2) No checkmark on "---" parity item (ParItem[5]).
  158. +  * 
  159. +  * Revision 1.3  89/12/11  20:48:16  acs
  160. +  * 1) Remove extraneous spaces at end of menu items.
  161. +  * 2) Increase width of checked menu items by CHECKWIDTH instead of by
  162. +  *    the width of 2 characters.
  163. +  * 3) Don't highlight the "---" separating the new Strip item from the
  164. +  *    other items in the Parity menu.
  165. +  * 4) A little better initialization of the Utility items.
  166. +  * 
  167. +  * Revision 1.2  89/11/06  21:25:22  acs
  168. +  * 1) Add new Parity menu item: Strip to remove parity from data destined
  169. +  *    for the display.
  170. +  * 2) Add RCS id and change log.
  171. +  * 
  172.    *    v2.9 ACS - Support new cmds EXT.  Use S and R for Send and Receive menu
  173.    *           items instead of ^ and V.  AREXX support.
  174.    *    v2.8a 880331 ACS - Allow lines 0 in init file to *really* mean
  175. ***************
  176. *** 84,91 ****
  177.       char sp;    /* SPace        */
  178.       char ev;    /* EVen            */
  179.       char od;    /* ODd            */
  180. !     char nl;
  181. ! } parcmd_chars = { 'N', ' ', ' ', 'E', 'O', '\0' };
  182.   
  183.   /*   Equivalences for the Xfer Mode sub-menu... */
  184.   struct modcmd {
  185. --- 104,113 ----
  186.       char sp;    /* SPace        */
  187.       char ev;    /* EVen            */
  188.       char od;    /* ODd            */
  189. !     char n0;    /* ---                  */
  190. !     char st;    /* STrip        */
  191. !     char n1;
  192. ! } parcmd_chars = { 'N', ' ', ' ', 'E', 'O', ' ', ' ', '\0' };
  193.   
  194.   /*   Equivalences for the Xfer Mode sub-menu... */
  195.   struct modcmd {
  196. ***************
  197. *** 131,170 ****
  198.   };
  199.   
  200.   static char *modetext[] = {
  201. !     "  Ascii",
  202. !     "  Xmodem",
  203. !     "  XmodemCRC",
  204. !     "  Kermit"
  205.   };
  206.   
  207.   static char *commtext[] = {
  208.       "Baud Rate",
  209. !     "Parity   ",
  210.       "Xfer Mode",
  211. !     "  Shared ",
  212.   };
  213.   
  214.   static char *baudtext[] = {
  215. !     "   300",
  216. !     "  1200",
  217. !     "  2400",
  218. !     "  4800",
  219. !     "  9600"
  220.   };
  221.   
  222.   static char *partext[] = {
  223. !     "  None ",
  224. !     "  Mark ",
  225. !     "  Space",
  226. !     "  Even ",
  227. !     "  Odd  "
  228.   };
  229.   
  230.   static char *modtext[] = {
  231. !     "  Image  ",
  232. !     "  Text   ",
  233. !     "  Convert",
  234. !     "  AutoChop"
  235.   };
  236.   
  237.   static char *scrtext[] = {
  238. --- 153,194 ----
  239.   };
  240.   
  241.   static char *modetext[] = {
  242. !     "Ascii",
  243. !     "Xmodem",
  244. !     "XmodemCRC",
  245. !     "Kermit"
  246.   };
  247.   
  248.   static char *commtext[] = {
  249.       "Baud Rate",
  250. !     "Parity",
  251.       "Xfer Mode",
  252. !     "Shared",
  253.   };
  254.   
  255.   static char *baudtext[] = {
  256. !     " 300",
  257. !     "1200",
  258. !     "2400",
  259. !     "4800",
  260. !     "9600"
  261.   };
  262.   
  263.   static char *partext[] = {
  264. !     "None",
  265. !     "Mark",
  266. !     "Space",
  267. !     "Even",
  268. !     "Odd",
  269. !     "-------",
  270. !     "Strip"
  271.   };
  272.   
  273.   static char *modtext[] = {
  274. !     "Image",
  275. !     "Text",
  276. !     "Convert",
  277. !     "AutoChop"
  278.   };
  279.   
  280.   static char *scrtext[] = {
  281. ***************
  282. *** 178,191 ****
  283.       "Hang Up",
  284.       "Change Dir",
  285.       "Clear Scrn",
  286. !     "  Echo",
  287. !     "  Wrap",
  288. !     "  Num Key",
  289. !     "  App Cur",
  290. !     "  BS<->DEL",
  291. !     "  Xfer Beep",
  292. !     "  Mouse Up",
  293. !     "  Mouse Dn",
  294.   };
  295.   
  296.   struct HowToInit {
  297. --- 202,215 ----
  298.       "Hang Up",
  299.       "Change Dir",
  300.       "Clear Scrn",
  301. !     "Echo",
  302. !     "Wrap",
  303. !     "Num Key",
  304. !     "App Cur",
  305. !     "BS<->DEL",
  306. !     "Xfer Beep ",
  307. !     "Mouse Up",
  308. !     "Mouse Dn",
  309.   };
  310.   
  311.   struct HowToInit {
  312. ***************
  313. *** 211,217 ****
  314.             modtext, (char *)(&modcmd_chars) },
  315.       { 0, 20, ITEMTEXT | ITEMENABLED | HIGHCOMP,
  316.            scrtext, (char *)(&scrcmd_chars) },
  317. !     { 0, 16, ITEMTEXT | ITEMENABLED | HIGHCOMP,
  318.            utiltext, (char *)(&utilcmd_chars) }
  319.   };
  320.   
  321. --- 235,241 ----
  322.             modtext, (char *)(&modcmd_chars) },
  323.       { 0, 20, ITEMTEXT | ITEMENABLED | HIGHCOMP,
  324.            scrtext, (char *)(&scrcmd_chars) },
  325. !     { 0, 16, ITEMTEXT | ITEMENABLED | HIGHCOMP | CHECKIT | MENUTOGGLE,
  326.            utiltext, (char *)(&utilcmd_chars) }
  327.   };
  328.   
  329. ***************
  330. *** 591,596 ****
  331. --- 615,621 ----
  332.   *******************************************************************/
  333.   void InitCommItems()
  334.   {
  335. +     struct IntuiText *itext;
  336.       int n;
  337.   
  338.       do_menu_init(CommItem, CommText, COMM_INIT_ENTRY, COMMAX);
  339. ***************
  340. *** 598,603 ****
  341. --- 623,631 ----
  342.       CommItem[1].SubItem = ParItem;
  343.       CommItem[2].SubItem = XFItem;
  344.       CommItem[3].Flags |= CHECKIT | MENUTOGGLE;
  345. +     CommItem[3].Width += CHECKWIDTH;
  346. +     itext = (struct IntuiText *)CommItem[3].ItemFill;
  347. +     itext->LeftEdge = CHECKWIDTH;
  348.       if(p_shared)
  349.       CommItem[3].Flags |= CHECKED;
  350.       else
  351. ***************
  352. *** 632,638 ****
  353.   /*****************************************************************/
  354.   
  355.       do_menu_init(ParItem, ParText, PAR_INIT_ENTRY, PARMAX);
  356. !     for( n=0; n<PARMAX; n++ ) {
  357.       ParItem[n].MutualExclude = (~(1 << n));
  358.       }
  359.   
  360. --- 660,666 ----
  361.   /*****************************************************************/
  362.   
  363.       do_menu_init(ParItem, ParText, PAR_INIT_ENTRY, PARMAX);
  364. !     for( n=0; n<PARMAX-2; n++ ) {
  365.       ParItem[n].MutualExclude = (~(1 << n));
  366.       }
  367.   
  368. ***************
  369. *** 639,644 ****
  370. --- 667,680 ----
  371.       /* select parity item chekced */
  372.       ParItem[p_parity].Flags |= CHECKED;
  373.   
  374. +     if(p_strip)
  375. +     ParItem[PARMAX-1].Flags |= CHECKED;
  376. +     else
  377. +     ParItem[PARMAX-1].Flags &= (-1L ^ CHECKED);
  378. + 
  379. +     ParItem[5].Flags |= HIGHNONE;        /* Don't highlight "----" */
  380. +     ParItem[5].Flags &= (-1L ^ (CHECKIT | MENUTOGGLE));    /* No checkmarks  */
  381. + 
  382.   /*****************************************************************/
  383.   /*    The following initializes the structure arrays         */
  384.   /* initialize text for specific menu items */
  385. ***************
  386. *** 677,689 ****
  387.   /*****************************************************************/
  388.   void InitUtilItems()
  389.   {
  390.       int    n;
  391.   
  392.       do_menu_init(UtilItem, UtilText, UTIL_INIT_ENTRY, UTILMAX);
  393.       /* initialize each menu item and IntuiText with loop */
  394. !     for( n=0; n<UTILMAX; n++ ) {
  395. !     if (n > 3)
  396. !         UtilItem[n].Flags |= CHECKIT | MENUTOGGLE;
  397.       }
  398.   
  399.       if (p_echo)
  400. --- 713,725 ----
  401.   /*****************************************************************/
  402.   void InitUtilItems()
  403.   {
  404. +     struct IntuiText *itext;
  405.       int    n;
  406.   
  407.       do_menu_init(UtilItem, UtilText, UTIL_INIT_ENTRY, UTILMAX);
  408.       /* initialize each menu item and IntuiText with loop */
  409. !     for(n = 0; n < 4; n++) {
  410. !     UtilItem[n].Flags &= (-1L ^ (CHECKIT | MENUTOGGLE));
  411.       }
  412.   
  413.       if (p_echo)
  414. ***************
  415. *** 769,774 ****
  416. --- 805,812 ----
  417.       menuitem[n].LeftEdge = initentry->LeftEdge * Ysize;
  418.       menuitem[n].TopEdge = 10 * n;
  419.       menuitem[n].Width = initentry->Width * Ysize;
  420. +     if(initentry->Flags & CHECKIT)
  421. +         menuitem[n].Width += CHECKWIDTH;
  422.       menuitem[n].Height = 10;
  423.       menuitem[n].Flags = initentry->Flags;
  424.       menuitem[n].MutualExclude = 0;
  425. ***************
  426. *** 787,793 ****
  427.       menutext[n].FrontPen = 0;
  428.       menutext[n].BackPen = 1;
  429.       menutext[n].DrawMode = JAM2;/* render in fore and background */
  430. !     menutext[n].LeftEdge = 0;
  431.       menutext[n].TopEdge = 1;
  432.       menutext[n].ITextFont = NULL;
  433.       menutext[n].NextText = NULL;
  434. --- 825,834 ----
  435.       menutext[n].FrontPen = 0;
  436.       menutext[n].BackPen = 1;
  437.       menutext[n].DrawMode = JAM2;/* render in fore and background */
  438. !     if(menuitem[n].Flags & CHECKIT)
  439. !         menutext[n].LeftEdge = CHECKWIDTH;
  440. !     else
  441. !         menutext[n].LeftEdge = 0;
  442.       menutext[n].TopEdge = 1;
  443.       menutext[n].ITextFont = NULL;
  444.       menutext[n].NextText = NULL;
  445. Index: kermit.c
  446. *** ./kermit.c    Tue Feb 13 09:54:49 1990
  447. --- ../2.9A/kermit.c    Tue Feb 13 09:55:06 1990
  448. ***************
  449. *** 1,7 ****
  450. --- 1,18 ----
  451. + static char rcsid[] = "$RCSfile: kermit.c,v $ $Revision: 1.3 $";
  452. + 
  453.   /*************************************************************
  454.    * vt100 terminal emulator - KERMIT protocol support
  455.    *            :ts=8
  456.    *
  457. +  * $Log:    kermit.c,v $
  458. +  * Revision 1.3  89/11/02  10:28:28  acs
  459. +  * doksend()/dokreceive(): Memory for spackbuf and msgpkt not freed if
  460. +  * filename == "$".
  461. +  * 
  462. +  * Revision 1.2  89/10/25  21:19:54  acs
  463. +  * 1) saybye(): allocate/free msgpkt and spackbuf if necessary.
  464. +  * 2) Add RCS id and change log.
  465. +  * 
  466.    *    v2.9 ACS - Kermit shouldn't NAK packet 0 but timeout waiting for
  467.    *           send-init then NAK if necessary; terminate each packet with
  468.     *           EOL only; don't sendstring("\r") but sendchar() it.
  469. ***************
  470. *** 111,120 ****
  471.       int amount, c, wild;
  472.       char *p, **list = NULL;
  473.   
  474. -     msgpkt    = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  475. -     spackbuf  = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  476.       sending = 1;
  477.       if (!strcmp(file,"$")) { saybye(); return(USERABORT); }
  478.       p = file;
  479.       while(*p && *p != '*' && *p != '?') p++;
  480.       if (*p) {
  481. --- 122,131 ----
  482.       int amount, c, wild;
  483.       char *p, **list = NULL;
  484.   
  485.       sending = 1;
  486.       if (!strcmp(file,"$")) { saybye(); return(USERABORT); }
  487. +     msgpkt    = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  488. +     spackbuf  = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  489.       p = file;
  490.       while(*p && *p != '*' && *p != '?') p++;
  491.       if (*p) {
  492. ***************
  493. *** 170,180 ****
  494.   {
  495.       int retval;
  496.   
  497. -     msgpkt    = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  498. -     spackbuf  = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  499.       ttime = TTIME_KERMIT;
  500.       sending = 0;
  501.       if (!strcmp(file,"$")) { saybye(); return(USERABORT); }
  502.       strcpy(filnam, file);
  503.       if (server) strcpy(mainmode,"GET");
  504.       else        strcpy(mainmode,"RECV");
  505. --- 181,191 ----
  506.   {
  507.       int retval;
  508.   
  509.       ttime = TTIME_KERMIT;
  510.       sending = 0;
  511.       if (!strcmp(file,"$")) { saybye(); return(USERABORT); }
  512. +     msgpkt    = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  513. +     spackbuf  = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  514.       strcpy(filnam, file);
  515.       if (server) strcpy(mainmode,"GET");
  516.       else        strcpy(mainmode,"RECV");
  517. ***************
  518. *** 992,1006 ****
  519.   void
  520.   saybye()
  521.   {
  522. !    int len,num;
  523.   
  524. !    if(msgpkt == NULL)    /* No msgpkt buffer... */
  525. !     return;        /* ...so just return.  */
  526.   
  527.      if(numreqs != 0)    /* Requester's up... */
  528.       Delay(5L);    /* ...so wait for Intuition, just in case. */
  529.      spack('G',n,1,"F");  /* shut down server no more files */
  530.      rpack(&len,&num,ackpkt);
  531.   }
  532.   
  533.   static void
  534. --- 1003,1029 ----
  535.   void
  536.   saybye()
  537.   {
  538. !    int len, num, gotbuf = 0;
  539.   
  540. !    if(msgpkt == NULL) {    /* No msgpkt buffer, create one */
  541. !     msgpkt    = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  542. !     spackbuf  = (char *)AllocMem((long)(MAXLONGPKS+20), MEMF_PUBLIC|MEMF_CLEAR);
  543. !         if(msgpkt == NULL || spackbuf == NULL) {
  544. !         InfoMsg1Line("KERMIT: Insufficient free memory, BYE bypassed");
  545. !         return;
  546. !     }
  547. !     gotbuf = 1;
  548. !     }
  549.   
  550.      if(numreqs != 0)    /* Requester's up... */
  551.       Delay(5L);    /* ...so wait for Intuition, just in case. */
  552.      spack('G',n,1,"F");  /* shut down server no more files */
  553.      rpack(&len,&num,ackpkt);
  554. +    if(gotbuf) {
  555. +        FreeMem(spackbuf, (long)(MAXLONGPKS+20));
  556. +        FreeMem(msgpkt,   (long)(MAXLONGPKS+20));
  557. +        msgpkt = spackbuf = NULL;
  558. +    }
  559.   }
  560.   
  561.   static void
  562. Index: remote.c
  563. *** ./remote.c    Tue Feb 13 09:54:51 1990
  564. --- ../2.9A/remote.c    Tue Feb 13 09:55:07 1990
  565. ***************
  566. *** 1,7 ****
  567. --- 1,23 ----
  568. + static char rcsid[] = "$RCSfile: remote.c,v $ $Revision: 1.4 $";
  569. + 
  570.   /****************************************************
  571.    * vt100 emulator - remote character interpretation
  572.    *        :ts=8
  573.    *
  574. +  * $Log:    remote.c,v $
  575. +  * Revision 1.4  89/12/18  20:44:21  acs
  576. +  * doremote() no longer needs to strip parity...the main loop in vt100.c
  577. +  * takes care of it now.
  578. +  * 
  579. +  * Revision 1.3  89/11/02  10:13:38  acs
  580. +  * doremote(): strip parity from data destined for display if user has
  581. +  * requested it (p_strip is set).
  582. +  * 
  583. +  * Revision 1.2  89/11/01  20:28:42  acs
  584. +  * 1) Correct use of Ysize in coordinate calculation.  Thanks to Sean
  585. +  *    Hogan (sean2@garfield.mun.ca).
  586. +  * 2) Add RCS id and change log.
  587. +  * 
  588.    *    V2.9 ACS - CAN was not cancelling a control sequence (thanks
  589.    *           to Bill Kinnersly.
  590.    *    V2.8          Insert/delete character (@/P) by John Wang
  591. ***************
  592. *** 201,207 ****
  593.         case 'H': case 'f':        /* Cursor position */
  594.       if (p[0] <= 0) p[0] = 1;
  595.       if (p[1] <= 0) p[1] = 1;
  596. !     y = (--p[0]*Ysize)+MINY; x = (--p[1]*Ysize)+MINX;
  597.       if (y > MAXY) y = MAXY;
  598.       if (x > MAXX) x = MAXX;
  599.       if (y < MINY) y = MINY;
  600. --- 217,223 ----
  601.         case 'H': case 'f':        /* Cursor position */
  602.       if (p[0] <= 0) p[0] = 1;
  603.       if (p[1] <= 0) p[1] = 1;
  604. !     y = (--p[0]*Ysize)+MINY; x = (--p[1]*Xsize)+MINX;
  605.       if (y > MAXY) y = MAXY;
  606.       if (x > MAXX) x = MAXX;
  607.       if (y < MINY) y = MINY;
  608. Index: rexx.c
  609. *** ./rexx.c    Tue Feb 13 09:54:51 1990
  610. --- ../2.9A/rexx.c    Tue Feb 13 09:55:07 1990
  611. ***************
  612. *** 1,7 ****
  613. --- 1,13 ----
  614. + static char rcsid[] = "$RCSfile: rexx.c,v $ $Revision: 1.2 $";
  615. + 
  616.   /*************************************************************
  617.    * vt100 terminal emulator - AREXX support
  618.    *                :ts=8
  619.    *
  620. +  * $Log:    rexx.c,v $
  621. +  * Revision 1.2  89/12/19  20:38:59  acs
  622. +  * Added RCS id and change log.
  623. +  * 
  624.    *    v2.9 ACS - New with this version.
  625.    *
  626.    *************************************************************/
  627. Index: script.c
  628. *** ./script.c    Tue Feb 13 09:54:52 1990
  629. --- ../2.9A/script.c    Tue Feb 13 09:55:07 1990
  630. ***************
  631. *** 1,7 ****
  632. --- 1,29 ----
  633. + static char rcsid[] = "$RCSfile: script.c,v $ $Revision: 1.5 $";
  634. + 
  635.   /*************************************************************
  636.    * vt100 terminal emulator - Script file support
  637.    *                :ts=8
  638.    *
  639. +  * $Log:    script.c,v $
  640. +  * Revision 1.5  89/12/14  20:32:10  acs
  641. +  * Wasn't beeping after a transfer using external protocols.
  642. +  * 
  643. +  * Revision 1.4  89/12/11  20:35:04  acs
  644. +  * 1) do_script_cmd(): if(CmdFromRexx) should return a value.  Thanks to
  645. +  *    William Dimm (wdimm@lehi3b15.csee.Lehigh.EDU).
  646. +  * 2) cmd_ext(): After successfully deleting an external protocol it should
  647. +  *    return CMDOK.  Thanks again, William!
  648. +  * 3) Displaynames for external protocols no longer need 2 spaces before
  649. +  *    the name.
  650. +  * 
  651. +  * Revision 1.3  89/11/02  10:27:06  acs
  652. +  * New command: STRIP which will strip parity from data destined for
  653. +  * display.
  654. +  * 
  655. +  * Revision 1.2  89/11/01  15:32:54  acs
  656. +  * 1) Make cmd_from_script accessible to other source modules.
  657. +  * 2) Add RCS id and change log.
  658. +  * 
  659.    *    v2.9 ACS - Add support for font size, external transfer program
  660.    *           support, new ASIS option to LACE cmd and AREXX support.
  661.    *    v2.8a 880331 ACS - Allow comments on XPROTO and FONT.
  662. ***************
  663. *** 142,147 ****
  664. --- 164,170 ----
  665.   cmd_sendf,    "sendfile",    5, SCRIPT,    /* send a file to host        */
  666.   cmd_share,    "shareserial",    5, INIT|SCRIPT,    /* ShareSerial device        */
  667.   cmd_short,    "shortcut",    3, INIT,    /* Set shortcuts        */
  668. + cmd_strip,    "strip",    2, INIT|SCRIPT,    /* Strip parity for display    */
  669.   cmd_swap,    "swap",        4, INIT|SCRIPT,    /* Swap BS and DEL        */
  670.   cmd_unit,    "unit",        4, INIT,    /* Unit of serial.device to use */
  671.   cmd_volume,    "volume",    3, INIT,    /* set volume            */
  672. ***************
  673. *** 193,198 ****
  674. --- 216,222 ----
  675.       char sp;    /* SPace        */
  676.       char ev;    /* EVen            */
  677.       char od;    /* ODd            */
  678. +     char st;    /* STrip        */
  679.       char nl;
  680.   } parcmd_chars;
  681.   
  682. ***************
  683. *** 259,264 ****
  684. --- 283,289 ----
  685.       "space", &(parcmd_chars.sp),    /* Set Parity            */
  686.       "even", &(parcmd_chars.ev),        /* Set Parity            */
  687.       "odd", &(parcmd_chars.od),        /* Set Parity            */
  688. +     "strip", &(parcmd_chars.st),    /* Strip parity            */
  689.       "image", &(modcmd_chars.im),    /* KERMIT transfer mode        */
  690.       "text", &(modcmd_chars.tx),        /* KERMIT transfer mode        */
  691.       "convert", &(modcmd_chars.cn),    /* KERMIT transfer mode        */
  692. ***************
  693. *** 284,290 ****
  694.       NULL, NULL
  695.   };
  696.   
  697. ! static int cmd_from_script;        /* != 0 iff cmd from a script    */
  698.   
  699.   
  700.   /********************************************************************/
  701. --- 309,315 ----
  702.       NULL, NULL
  703.   };
  704.   
  705. ! int cmd_from_script;            /* != 0 iff cmd from a script    */
  706.   
  707.   
  708.   /********************************************************************/
  709. ***************
  710. *** 461,467 ****
  711.       script_wait = FALSE;
  712.   
  713.       if(CmdFromRexx)
  714. !     return;
  715.   
  716.       while(fgets(line,256,sf) != NULL) {
  717.          len = strlen(line);
  718. --- 486,492 ----
  719.       script_wait = FALSE;
  720.   
  721.       if(CmdFromRexx)
  722. !     return 0;
  723.   
  724.       while(fgets(line,256,sf) != NULL) {
  725.          len = strlen(line);
  726. ***************
  727. *** 734,740 ****
  728.           NumExts--;
  729.           if(!doing_init)
  730.               InitFileItems();
  731. !         return;
  732.           }
  733.       }
  734.       nxfer = i;            /* Remember index of match or where to put new... */
  735. --- 759,765 ----
  736.           NumExts--;
  737.           if(!doing_init)
  738.               InitFileItems();
  739. !         return CMDOK;
  740.           }
  741.       }
  742.       nxfer = i;            /* Remember index of match or where to put new... */
  743. ***************
  744. *** 781,789 ****
  745.       /* Initialize the new ExternalXfer entry.  Leave room in dispname for
  746.       ** a checkmark (2 character widths). */
  747.       len = strlen(dn);
  748. !     cexp->dispname = (char *)AllocMem((long)len+3, mem_type);
  749. !     strcpy(cexp->dispname, "  ");
  750. !     strcat(cexp->dispname, dn);
  751.       cexp->downname = (char *)AllocMem((long)len+1, mem_type);
  752.       for(i = 0; i < len; i++)
  753.       cexp->downname[i] = dn[i] | ' ';
  754. --- 806,813 ----
  755.       /* Initialize the new ExternalXfer entry.  Leave room in dispname for
  756.       ** a checkmark (2 character widths). */
  757.       len = strlen(dn);
  758. !     cexp->dispname = (char *)AllocMem((long)len+1, mem_type);
  759. !     strcpy(cexp->dispname, dn);
  760.       cexp->downname = (char *)AllocMem((long)len+1, mem_type);
  761.       for(i = 0; i < len; i++)
  762.       cexp->downname[i] = dn[i] | ' ';
  763. ***************
  764. *** 1623,1628 ****
  765. --- 1647,1659 ----
  766.       return CMDFAIL;
  767.   }
  768.   
  769. + cmd_strip(par)
  770. + char    *par;
  771. + {
  772. +     setvar(par,0,&p_strip);
  773. +     return CMDOK;
  774. + }
  775. + 
  776.   cmd_key(par)
  777.   char    *par;
  778.   {
  779. ***************
  780. *** 1777,1781 ****
  781. --- 1808,1814 ----
  782.       if(!p_shared && OpenDevice(mysername,(LONG)p_unit,(struct IORequest *)Read_Request,NULL))
  783.       cleanup("Can't re-open Read device",0);
  784.       setparams();
  785. +     if(p_xbeep)
  786. +     cmd_beep(0L);
  787.       return CMDOK;
  788.   }
  789. Index: vt100.c
  790. *** ./vt100.c    Tue Feb 13 09:54:53 1990
  791. --- ../2.9A/vt100.c    Tue Feb 13 09:55:08 1990
  792. ***************
  793. *** 1,7 ****
  794. --- 1,46 ----
  795. + static char rcsid[] = "$RCSfile: vt100.c,v $ $Revision: 1.8 $";
  796. + static char hrcsid[] = HRCSID;
  797. + 
  798.   /********************************************************************
  799.    *  vt100 terminal emulator with xmodem transfer capability
  800.    *        :ts=8
  801.    *
  802. +  * $Log:    vt100.c,v $
  803. +  * Revision 1.8  90/02/12  20:25:05  acs
  804. +  * Include reference to HRCSID defined in vt100.h.
  805. +  * 
  806. +  * Revision 1.7  90/01/01  21:03:53  acs
  807. +  * 1) do_capture() shouldn't strcpy() to XferredFileName.
  808. +  * 2) do_capture() should use name instead of XferredFileName.
  809. +  * 3) do_send() would only prompt for filename once.
  810. +  * 
  811. +  * Revision 1.6  89/12/18  20:52:38  acs
  812. +  * Strip parity from inbound serial data if p_strip or p_parity is set.
  813. +  * Used to be that this module would only strip parity if p_parity was
  814. +  * set; it was up to subordinate routines to strip parity if p_strip
  815. +  * was set (notably, emit() and doremote()).
  816. +  * 
  817. +  * Revision 1.5  89/12/13  22:02:17  acs
  818. +  * p_bs_del is now based on flag set in selected menu item, too.
  819. +  * 
  820. +  * Revision 1.4  89/12/12  22:18:02  acs
  821. +  * 1) Give selected menu item to handle_menupick().
  822. +  * 2) Base new values of p_* on flags set in selected menu item.
  823. +  * 
  824. +  * Revision 1.3  89/11/06  22:07:46  acs
  825. +  * 1) Used 8 instead of Xsize and Ysize and 6 instead of BaseLine in mouse
  826. +  *    location calculation.  Thanks to Evan Harris (evan@cs.mu.oz.au).
  827. +  * 2) Mouse location routine would call sendchar() with 2 parameters
  828. +  *    (thanks again Evan!).
  829. +  * 3) Support new STRIP command and menu option (p_strip).
  830. +  * 
  831. +  * 
  832. +  * Revision 1.2  89/11/01  20:37:10  acs
  833. +  * 1) Don't poll serial port while executing a script unless we're waiting
  834. +  *    or delaying.
  835. +  * 2) ASCII Capture would only prompt for filename once.
  836. +  * 3) Add RCS id and change log.
  837. +  * 
  838.    *    v2.9 ACS - Only strip parity if parity is enabled; handle external xfer
  839.    *           items in handle_menupick(); new p_interlace value (2).
  840.    *    v2.8a 880331 ACS - Don't ReplyMsg too soon.
  841. ***************
  842. *** 246,251 ****
  843. --- 285,291 ----
  844.   int    p_background    = 0x000;    /* default background RGB color */
  845.   int    p_bold        = 0x000;    /* default BOLD       RGB color */
  846.   int    p_cursor    = 0x00d;    /* default Cursor      RGB color */
  847. + int    p_strip        = 1;    /* Strip parity from data for terminal    */
  848.   int    p_mouse_up    = 0;    /* 1 = send mouse UP events        */
  849.   int    p_mouse_down    = 0;    /* 1 = send mouse DOWN events        */
  850.   int    p_lines        = 0;    /* 0 == use all available (MoreRows)    */
  851. ***************
  852. *** 282,287 ****
  853. --- 322,328 ----
  854.   
  855.   /* for script file */
  856.   extern char on_string[], wait_string[];
  857. + extern int cmd_from_script;        /* in script.c */
  858.   int script_on, script_wait;
  859.   int doing_init = 0;
  860.   
  861. ***************
  862. *** 393,404 ****
  863.       }
  864.   
  865.       /* see if there are any characters from the host */
  866. !     if (CheckIO((struct IORequest *)Read_Request)) {
  867.           register int fwdndx = 0;
  868.           struct MsgPort *FwdPort;
  869.   
  870.           WaitIO((struct IORequest *)Read_Request);
  871. !         c = rs_in[0] & (p_parity ? 0x7F : 0xFF);
  872.   #if AREXX
  873.           fwdchars[fwdndx++] = c;
  874.   #endif
  875. --- 434,449 ----
  876.       }
  877.   
  878.       /* see if there are any characters from the host */
  879. !     if (  (!script_on || (script_on && script_wait)) 
  880. !        && CheckIO((struct IORequest *)Read_Request)) {
  881.           register int fwdndx = 0;
  882.           struct MsgPort *FwdPort;
  883.   
  884.           WaitIO((struct IORequest *)Read_Request);
  885. !         if(p_parity || p_strip)
  886. !         c = rs_in[0] & 0x7f;
  887. !         else
  888. !         c = rs_in[0];
  889.   #if AREXX
  890.           fwdchars[fwdndx++] = c;
  891.   #endif
  892. ***************
  893. *** 421,433 ****
  894.                   dola = 1;
  895.           else
  896.               dola = 0;
  897. !         Read_Request->IOSer.io_Length =
  898. !         Read_Request->IOSer.io_Actual;
  899.           DoIO((struct IORequest *)Read_Request);
  900.           Read_Request->IOSer.io_Length = 1;
  901.   
  902.           for (i = 0; i < actual; i++) {
  903. !             c=rs_in[i] & (p_parity ? 0x7f : 0xff);
  904.   #if AREXX
  905.               if(fwdndx < 255)
  906.               fwdchars[fwdndx++] = c;
  907. --- 466,482 ----
  908.                   dola = 1;
  909.           else
  910.               dola = 0;
  911. !         if(actual > sizeof(lookahead))
  912. !             actual = sizeof(lookahead);
  913. !         Read_Request->IOSer.io_Length = actual;
  914.           DoIO((struct IORequest *)Read_Request);
  915.           Read_Request->IOSer.io_Length = 1;
  916.   
  917.           for (i = 0; i < actual; i++) {
  918. !             if(p_parity || p_strip)
  919. !             c = rs_in[i] & 0x7f;
  920. !             else
  921. !             c = rs_in[i];
  922.   #if AREXX
  923.               if(fwdndx < 255)
  924.               fwdchars[fwdndx++] = c;
  925. ***************
  926. *** 527,533 ****
  927.               unsigned int newcode =
  928.               (Item ? Item->NextSelect : code);
  929.   
  930. !             redo |= handle_menupick(class,code);
  931.               if(code == newcode)
  932.               code = MENUNULL;
  933.               else
  934. --- 576,582 ----
  935.               unsigned int newcode =
  936.               (Item ? Item->NextSelect : code);
  937.   
  938. !             redo |= handle_menupick(class,code, Item);
  939.               if(code == newcode)
  940.               code = MENUNULL;
  941.               else
  942. ***************
  943. *** 558,565 ****
  944.   
  945.               sendstring(p_f[10]);
  946.               sendchar(mouse_qual + '@');
  947. !             sendchar(' ' + ((mouse_x - MINX) / 8),10);  /* column */
  948. !             sendchar(' ' + ((mouse_y - MINY + 6 ) / 8),10);/* row */
  949.           }
  950.           break;
  951.   
  952. --- 607,614 ----
  953.   
  954.               sendstring(p_f[10]);
  955.               sendchar(mouse_qual + '@');
  956. !             sendchar(' ' + ((mouse_x - MINX) / Xsize));  /* column */
  957. !             sendchar(' ' + ((mouse_y - MINY + BaseLine ) / Ysize));/* row */
  958.           }
  959.           break;
  960.   
  961. ***************
  962. *** 570,577 ****
  963.       }   /* end of while ( newmessage )*/
  964.   
  965.       if (!script_wait ||
  966. !        (CheckIO((struct IORequest *)&Script_Timer) &&
  967. !         script_wait == WAIT_TIMER))
  968.           do_script_cmd(NEXTCOMMAND);
  969.   
  970.       while( reqwinup && ((NewMessage = (struct IntuiMessage *)
  971. --- 619,626 ----
  972.       }   /* end of while ( newmessage )*/
  973.   
  974.       if (!script_wait ||
  975. !        (script_wait == WAIT_TIMER &&
  976. !         CheckIO((struct IORequest *)&Script_Timer)))
  977.           do_script_cmd(NEXTCOMMAND);
  978.   
  979.       while( reqwinup && ((NewMessage = (struct IntuiMessage *)
  980. ***************
  981. *** 703,720 ****
  982.   do_capture(file)
  983.   char *file;
  984.   {
  985.       if (capture == TRUE) {
  986.       capture=FALSE;
  987.       fclose(tranr);
  988.       InfoMsg1Line("End File Capture");
  989.       } else {
  990. !     if (file == NULL || *file == '\0') {
  991. !         req("Ascii Capture:",XferredFileName,1);
  992. !     } else
  993. !         strcpy(XferredFileName, file);
  994. !     if ((tranr=fopen(XferredFileName,"w")) == 0) {
  995.           capture=FALSE;
  996. !         InfoMsg2Line("Error Opening File:", XferredFileName);
  997.           return(FALSE);
  998.       }
  999.       capture=TRUE;
  1000. --- 752,777 ----
  1001.   do_capture(file)
  1002.   char *file;
  1003.   {
  1004. +     char name[MAXGADSTR];
  1005. + 
  1006.       if (capture == TRUE) {
  1007.       capture=FALSE;
  1008.       fclose(tranr);
  1009.       InfoMsg1Line("End File Capture");
  1010.       } else {
  1011. !     if(file)
  1012. !         strcpy(name, file);
  1013. !     else
  1014. !         name[0] = '\0';
  1015. ! 
  1016. !     if (file == NULL || *file == '\0' || !cmd_from_script) {
  1017. !         req("Ascii Capture:",name,1);
  1018. !         if(file && !cmd_from_script)
  1019. !         strcpy(file, name);
  1020. !     }
  1021. !     if ((tranr=fopen(name,"w")) == 0) {
  1022.           capture=FALSE;
  1023. !         InfoMsg2Line("Error Opening File:", name);
  1024.           return(FALSE);
  1025.       }
  1026.       capture=TRUE;
  1027. ***************
  1028. *** 725,742 ****
  1029.   do_send(file)
  1030.   char *file;
  1031.   {
  1032.       if (send == TRUE) {
  1033.       send=FALSE;
  1034.       fclose(trans);
  1035.       InfoMsg1Line("File Send Cancelled");
  1036.       } else {
  1037. !     if (file == NULL || *file == '\0') {
  1038. !         req("Ascii Send:", XferredFileName, 1);
  1039. !     } else
  1040. !         strcpy(XferredFileName, file);
  1041. !     if ((trans=fopen(XferredFileName, "r")) == 0) {
  1042.           send=FALSE;
  1043. !         InfoMsg2Line("Error Opening File:", XferredFileName);
  1044.           return(FALSE);
  1045.       }
  1046.       send=TRUE;
  1047. --- 782,807 ----
  1048.   do_send(file)
  1049.   char *file;
  1050.   {
  1051. +     char name[MAXGADSTR];
  1052. + 
  1053.       if (send == TRUE) {
  1054.       send=FALSE;
  1055.       fclose(trans);
  1056.       InfoMsg1Line("File Send Cancelled");
  1057.       } else {
  1058. !     if(file)
  1059. !         strcpy(name, file);
  1060. !     else
  1061. !         name[0] = '\0';
  1062. ! 
  1063. !     if (file == NULL || *file == '\0' || !cmd_from_script) {
  1064. !         req("Ascii Send:",name,1);
  1065. !         if(file && !cmd_from_script)
  1066. !         strcpy(file, name);
  1067. !     }
  1068. !     if ((trans=fopen(name, "r")) == 0) {
  1069.           send=FALSE;
  1070. !         InfoMsg2Line("Error Opening File:", name);
  1071.           return(FALSE);
  1072.       }
  1073.       send=TRUE;
  1074. ***************
  1075. *** 802,810 ****
  1076.       SetMenuStrip(mywindow,&menu[0]);
  1077.   }
  1078.   
  1079. ! ULONG handle_menupick(class, code)
  1080.   ULONG class;
  1081.   unsigned int code;
  1082.   {
  1083.       unsigned int menunum, itemnum, subnum, i;
  1084.       int nxfer;
  1085. --- 867,876 ----
  1086.       SetMenuStrip(mywindow,&menu[0]);
  1087.   }
  1088.   
  1089. ! ULONG handle_menupick(class, code, Item)
  1090.   ULONG class;
  1091.   unsigned int code;
  1092. + struct MenuItem *Item;
  1093.   {
  1094.       unsigned int menunum, itemnum, subnum, i;
  1095.       int nxfer;
  1096. ***************
  1097. *** 886,894 ****
  1098.           break;
  1099.   
  1100.       case 1:    /* menunum case 1 itemnum 1 -- Set  Parity */
  1101. !         p_parity = subnum;
  1102.           break;
  1103. - 
  1104.       case 2:    /* menunum case 1 itemnum 2 -- set transfer mode */
  1105.           switch(subnum) {
  1106.           case 0:
  1107. --- 952,970 ----
  1108.           break;
  1109.   
  1110.       case 1:    /* menunum case 1 itemnum 1 -- Set  Parity */
  1111. !         switch(subnum) {
  1112. !         case 0: case 1: case 2: case 3: case 4:
  1113. !         p_parity = subnum;
  1114. !         break;
  1115. !         case 6:
  1116. !         if(Item->Flags & CHECKED)
  1117. !             p_strip = 1;
  1118. !         else
  1119. !             p_strip = 0;
  1120. !         break;
  1121. !         }
  1122. !         retval |= REDOCOMM;
  1123.           break;
  1124.       case 2:    /* menunum case 1 itemnum 2 -- set transfer mode */
  1125.           switch(subnum) {
  1126.           case 0:
  1127. ***************
  1128. *** 896,911 ****
  1129.           p_mode = subnum;
  1130.           break;
  1131.           case 2:
  1132. !         if (p_convert)
  1133. !             p_convert = 0;
  1134. !         else
  1135.               p_convert = 1;
  1136.           break;
  1137.           case 3:
  1138. !         if(p_autochop)
  1139. !             p_autochop = 0;
  1140. !         else
  1141.               p_autochop = 1;
  1142.           break;
  1143.           }
  1144.           retval |= REDOCOMM;
  1145. --- 972,987 ----
  1146.           p_mode = subnum;
  1147.           break;
  1148.           case 2:
  1149. !         if(Item->Flags & CHECKED)
  1150.               p_convert = 1;
  1151. +         else
  1152. +             p_convert = 0;
  1153.           break;
  1154.           case 3:
  1155. !         if(Item->Flags & CHECKED)
  1156.               p_autochop = 1;
  1157. +         else
  1158. +             p_autochop = 0;
  1159.           break;
  1160.           }
  1161.           retval |= REDOCOMM;
  1162. ***************
  1163. *** 914,923 ****
  1164.           {
  1165.           char onoff[4];
  1166.   
  1167. !         if(p_shared)
  1168. !             strcpy(onoff, "off");
  1169. !         else
  1170.               strcpy(onoff, "on");
  1171.           cmd_share(onoff);
  1172.           }
  1173.           break;
  1174. --- 990,999 ----
  1175.           {
  1176.           char onoff[4];
  1177.   
  1178. !         if(Item->Flags & CHECKED)
  1179.               strcpy(onoff, "on");
  1180. +         else
  1181. +             strcpy(onoff, "off");
  1182.           cmd_share(onoff);
  1183.           }
  1184.           break;
  1185. ***************
  1186. *** 969,1031 ****
  1187.           break;
  1188.   
  1189.       case 4:    /* menunum case 3 itemnum case 4 -- Echo mode */
  1190. !         if (p_echo)
  1191. !         p_echo = 0;
  1192. !         else
  1193.           p_echo = 1;
  1194.           retval |= REDOUTIL;
  1195.           break;
  1196.   
  1197.       case 5:    /* menunum case 3 itemnum case 5 -- Wrap mode */
  1198. !         if (p_wrap)
  1199. !         p_wrap = 0;
  1200. !         else
  1201.           p_wrap = 1;
  1202.           retval |= REDOUTIL;
  1203.           break;
  1204.   
  1205.       case 6:    /* menunum case 3 itemnum case 6 -- NumKey */
  1206. !         if (p_keyapp)
  1207. !         p_keyapp = 0;
  1208. !         else
  1209.           p_keyapp = 1;
  1210.           retval |= REDOUTIL;
  1211.           break;
  1212.   
  1213.       case 7:    /* menunum case 3 itemnum case 7 -- App Cur */
  1214. !         if (p_curapp)
  1215. !         p_curapp = 0;
  1216. !         else
  1217.           p_curapp = 1;
  1218.           retval |= REDOUTIL;
  1219.           break;
  1220.   
  1221.       case 8:    /* menunum case 3 itemnum case 8 -- BS <-> DEL */
  1222. !         swap_bs_del();
  1223.           retval |= REDOUTIL;
  1224.           break;
  1225.   
  1226.       case 9:    /* menunum case 3 itemnum case 9 -- Xfer Beep */
  1227. !         if(p_xbeep)
  1228. !         p_xbeep = 0;
  1229. !         else
  1230.           p_xbeep = 1;
  1231.           retval |= REDOUTIL;
  1232.           break;
  1233.   
  1234.       case 10: /* menunum case 3 itemnum case 10 - Mouse Up */
  1235. !         if(p_mouse_up)
  1236. !         p_mouse_up = 0;
  1237. !         else
  1238.           p_mouse_up = 1;
  1239.           retval |= REDOUTIL;
  1240.           break;
  1241.   
  1242.       case 11: /* menunum case 3 itemnum case 11 - Mouse Down */
  1243. !         if(p_mouse_down)
  1244. !         p_mouse_down = 0;
  1245. !         else
  1246.           p_mouse_down = 1;
  1247.           retval |= REDOUTIL;
  1248.           break;
  1249.       }
  1250. --- 1045,1110 ----
  1251.           break;
  1252.   
  1253.       case 4:    /* menunum case 3 itemnum case 4 -- Echo mode */
  1254. !         if(Item->Flags & CHECKED)
  1255.           p_echo = 1;
  1256. +         else
  1257. +         p_echo = 0;
  1258.           retval |= REDOUTIL;
  1259.           break;
  1260.   
  1261.       case 5:    /* menunum case 3 itemnum case 5 -- Wrap mode */
  1262. !         if(Item->Flags & CHECKED)
  1263.           p_wrap = 1;
  1264. +         else
  1265. +         p_wrap = 0;
  1266.           retval |= REDOUTIL;
  1267.           break;
  1268.   
  1269.       case 6:    /* menunum case 3 itemnum case 6 -- NumKey */
  1270. !         if(Item->Flags & CHECKED)
  1271.           p_keyapp = 1;
  1272. +         else
  1273. +         p_keyapp = 0;
  1274.           retval |= REDOUTIL;
  1275.           break;
  1276.   
  1277.       case 7:    /* menunum case 3 itemnum case 7 -- App Cur */
  1278. !         if(Item->Flags & CHECKED)
  1279.           p_curapp = 1;
  1280. +         else
  1281. +         p_curapp = 0;
  1282.           retval |= REDOUTIL;
  1283.           break;
  1284.   
  1285.       case 8:    /* menunum case 3 itemnum case 8 -- BS <-> DEL */
  1286. !         if(Item->Flags & CHECKED)
  1287. !         p_bs_del = 1;
  1288. !         else
  1289. !         p_bs_del = 0;
  1290.           retval |= REDOUTIL;
  1291.           break;
  1292.   
  1293.       case 9:    /* menunum case 3 itemnum case 9 -- Xfer Beep */
  1294. !         if(Item->Flags & CHECKED)
  1295.           p_xbeep = 1;
  1296. +         else
  1297. +         p_xbeep = 0;
  1298.           retval |= REDOUTIL;
  1299.           break;
  1300.   
  1301.       case 10: /* menunum case 3 itemnum case 10 - Mouse Up */
  1302. !         if(Item->Flags & CHECKED)
  1303.           p_mouse_up = 1;
  1304. +         else
  1305. +         p_mouse_up = 0;
  1306.           retval |= REDOUTIL;
  1307.           break;
  1308.   
  1309.       case 11: /* menunum case 3 itemnum case 11 - Mouse Down */
  1310. !         if(Item->Flags & CHECKED)
  1311.           p_mouse_down = 1;
  1312. +         else
  1313. +         p_mouse_down = 0;
  1314.           retval |= REDOUTIL;
  1315.           break;
  1316.       }
  1317. Index: vt100.doc
  1318. *** ./vt100.doc    Tue Feb 13 09:54:54 1990
  1319. --- ../2.9A/vt100.doc    Tue Feb 13 09:55:08 1990
  1320. ***************
  1321. *** 51,58 ****
  1322.           .
  1323.           .        - externally defined transfer programs
  1324.           .
  1325. !     Send        (A-^)    - Send a file using the selected protocol
  1326. !     Receive        (A-V)    - Receive a file as above
  1327.       Kermit Get    (A-G)    - Get files from a kermit server
  1328.       Kermit Bye    (A-B)    - Finish with the kermit server.
  1329.       Capture            - Log received text to a file.  Changes to
  1330. --- 51,58 ----
  1331.           .
  1332.           .        - externally defined transfer programs
  1333.           .
  1334. !     Send        (A-S)    - Send a file using the selected protocol
  1335. !     Receive        (A-R)    - Receive a file as above
  1336.       Kermit Get    (A-G)    - Get files from a kermit server
  1337.       Kermit Bye    (A-B)    - Finish with the kermit server.
  1338.       Capture            - Log received text to a file.  Changes to
  1339. ***************
  1340. *** 182,191 ****
  1341.   character of the function key definition is the KEYSCRIPT character (e.g.,
  1342.   define F5 as "~df1:foo.script").
  1343.   
  1344. ! During the time script file is running the terminal emulation is still
  1345. ! active and you may type simulataneous to the script file. This may be
  1346. ! desired if your script file is WAITing for a string or is DELAYing for a
  1347. ! period of time etc.
  1348.   
  1349.   AREXX support:
  1350.   --------------
  1351. --- 182,200 ----
  1352.   character of the function key definition is the KEYSCRIPT character (e.g.,
  1353.   define F5 as "~df1:foo.script").
  1354.   
  1355. ! Prior to release 2.9A (a patch release to 2.9), VT100 would interleave
  1356. ! script command execution with the processing of data received from the
  1357. ! serial port.  This made scripts inherently timing dependant.  To remove
  1358. ! this timing dependancy, beginning with 2.9A, VT100 will not receive nor
  1359. ! process data from the serial port while executing a script until the
  1360. ! script issues a WAIT or a DELAY command.  Since the ON command depends
  1361. ! on receipt of serial data, this change will also delay ON command
  1362. ! execution until a WAIT or DELAY is encountered in the script as well.
  1363. ! However, during the time a script file is running terminal emulation is
  1364. ! still active and you may type simulataneous with the execution of the
  1365. ! script file.  This may be desired if your script file is WAITing for a
  1366. ! string or is DELAYing for a period of time etc.  You may, of course,
  1367. ! cancel the execution of a script at any time
  1368.   
  1369.   AREXX support:
  1370.   --------------
  1371. ***************
  1372. *** 673,679 ****
  1373.       EVEN    - Set Parity even          ODD    - Set Parity odd
  1374.       IMAGE   - KERMIT transfer mode     TEXT    - KERMIT transfer mode
  1375.       CONVERT - KERMIT transfer mode     AUTOCHOP    - Enable/disable XMODEM
  1376. !                           auto-chop feature
  1377.                 >> Script items: <<
  1378.       EXECUTE - execute macro        ABORT    - abort macro
  1379.       RX      - send AREXX command
  1380. --- 682,689 ----
  1381.       EVEN    - Set Parity even          ODD    - Set Parity odd
  1382.       IMAGE   - KERMIT transfer mode     TEXT    - KERMIT transfer mode
  1383.       CONVERT - KERMIT transfer mode     AUTOCHOP    - Enable/disable XMODEM
  1384. !     STRIP   - Strip parity of serial          auto-chop feature
  1385. !           data destined for terminal
  1386.                 >> Script items: <<
  1387.       EXECUTE - execute macro        ABORT    - abort macro
  1388.       RX      - send AREXX command
  1389. ***************
  1390. *** 691,696 ****
  1391. --- 701,715 ----
  1392.       SHORTCUT XS             removes the shortcut key for sending via
  1393.                                   XMODEM protocol
  1394.   --------------------------------------------------------------------------
  1395. + STRIP    Strip parity of data destined for terminal    (INIT,SCRIPT)
  1396. +     Format:
  1397. +         STRIP ON/OFF or YES/NO
  1398. +     Example:
  1399. +         STRIP ON    Prior to displaying data from the remote host,
  1400. +             remove the parity.  This will "clean up" displays
  1401. +             from hosts which can't or won't recognize your
  1402. +             parity settings.
  1403. + --------------------------------------------------------------------------
  1404.   SWAP    Swap the meanings of backspace and delete keys    (INIT,SCRIPT)
  1405.       Format:
  1406.       SWAP ON/OFF or YES/NO
  1407. ***************
  1408. *** 742,748 ****
  1409.   --------------------------------------------------------------------------
  1410.   XPROTO    Set default transfer protocol            (INIT,SCRIPT)
  1411.       Format:
  1412. !     XPROTO    XMODEM/XMODEMCRC/KERMIT/an external protocol
  1413.       Example:
  1414.       XPROTO    KERMIT        Sets transfer protocol to Kermit
  1415.   --------------------------------------------------------------------------
  1416. --- 761,767 ----
  1417.   --------------------------------------------------------------------------
  1418.   XPROTO    Set default transfer protocol            (INIT,SCRIPT)
  1419.       Format:
  1420. !     XPROTO    ASCII/XMODEM/XMODEMCRC/KERMIT/an external protocol
  1421.       Example:
  1422.       XPROTO    KERMIT        Sets transfer protocol to Kermit
  1423.   --------------------------------------------------------------------------
  1424. Index: window.c
  1425. *** ./window.c    Tue Feb 13 09:54:55 1990
  1426. --- ../2.9A/window.c    Tue Feb 13 09:55:09 1990
  1427. ***************
  1428. *** 1,7 ****
  1429. --- 1,29 ----
  1430. + static char rcsid[] = "$RCSfile: window.c,v $ $Revision: 1.5 $";
  1431. + 
  1432.   /****************************************************
  1433.    * vt100 emulator - window/keyboard support
  1434.    *        :ts=8
  1435.    *
  1436. +  * $Log:    window.c,v $
  1437. +  * Revision 1.5  90/01/23  20:17:11  acs
  1438. +  * 1) Machine would lock up due to req() "missing" some events.  Thanks
  1439. +  *    to Patrick Horgan (phorgan@cup.portal.com) for all his work on
  1440. +  *    this one!
  1441. +  * 2) Remove some extraneous white-space for appearances sake.
  1442. +  * 
  1443. +  * Revision 1.4  89/12/18  20:47:12  acs
  1444. +  * emit() no longer needs to strip parity...the main loop in vt100.c
  1445. +  * takes care of it now.
  1446. +  * 
  1447. +  * Revision 1.3  89/11/02  10:14:24  acs
  1448. +  * Support for new STRIP command to strip parity from data destined for
  1449. +  * display.
  1450. +  * 
  1451. +  * Revision 1.2  89/11/01  20:32:28  acs
  1452. +  * 1) Correct interchanged use of Xsize and Ysize.  Thanks to Sean Hogan
  1453. +  *    (sean2@garfield.mun.ca).
  1454. +  * 2) Add RCS id and change log.
  1455. +  * 
  1456.    *    v2.9 ACS - See change summary.
  1457.    *    v2.7 870825 ACS - Provide an info/status window rather than using
  1458.    *              req().  Better error handling.
  1459. ***************
  1460. *** 88,94 ****
  1461.   #if MANX
  1462.       USHORT RemoveGadget();
  1463.   #endif /* MANX */
  1464. !     int  lprmpt, lname;
  1465.       struct IntuiMessage *Msg;
  1466.   
  1467.       if(reqwinup == 0)
  1468. --- 110,116 ----
  1469.   #if MANX
  1470.       USHORT RemoveGadget();
  1471.   #endif /* MANX */
  1472. !     int  lprmpt, lname, done;
  1473.       struct IntuiMessage *Msg;
  1474.   
  1475.       if(reqwinup == 0)
  1476. ***************
  1477. *** 124,129 ****
  1478. --- 146,152 ----
  1479.       /* Make sure the prompt gets updated */
  1480.       if (numreqs == 1 && strcmp(Prompt,prmpt) != 0) {
  1481.       EndRequest(&myrequest,reqwindow);
  1482. +     done = 0;
  1483.       do {
  1484.           Wait(1L << reqwindow->UserPort->mp_SigBit);
  1485.           while (Msg = (struct IntuiMessage *)GetMsg(reqwindow->UserPort)) {
  1486. ***************
  1487. *** 131,138 ****
  1488.               ReplyMsg((struct Message *)Msg);
  1489.               if(class == NEWSIZE)
  1490.                   ReqNewSize(reqwindow->Height, reqwindow->Width);
  1491.           }
  1492. !     } while (class != REQCLEAR);
  1493.       numreqs = 0;
  1494.       }
  1495.   
  1496. --- 154,163 ----
  1497.               ReplyMsg((struct Message *)Msg);
  1498.               if(class == NEWSIZE)
  1499.                   ReqNewSize(reqwindow->Height, reqwindow->Width);
  1500. +             if(class == REQCLEAR)
  1501. +                 done = 1;
  1502.           }
  1503. !     } while(!done);
  1504.       numreqs = 0;
  1505.       }
  1506.   
  1507. ***************
  1508. *** 154,159 ****
  1509. --- 179,185 ----
  1510.           }
  1511.           else numreqs = 1;
  1512.   
  1513. +         done = 0;
  1514.           do {
  1515.           Wait(1L << reqwindow->UserPort->mp_SigBit);
  1516.           while (Msg = (struct IntuiMessage *)GetMsg(reqwindow->UserPort)) {
  1517. ***************
  1518. *** 163,170 ****
  1519.               numreqs = 0;
  1520.               if(class == NEWSIZE)
  1521.               ReqNewSize(reqwindow->Height, reqwindow->Width);
  1522.           }
  1523. !         } while (class != REQSET);
  1524.       } /* end while numreqs != 0 */
  1525.       } /* end else */
  1526.   
  1527. --- 189,198 ----
  1528.               numreqs = 0;
  1529.               if(class == NEWSIZE)
  1530.               ReqNewSize(reqwindow->Height, reqwindow->Width);
  1531. +             if(class == REQSET)
  1532. +             done = 1;
  1533.           }
  1534. !         } while(!done);
  1535.       } /* end while numreqs != 0 */
  1536.       } /* end else */
  1537.   
  1538. ***************
  1539. *** 174,179 ****
  1540. --- 202,208 ----
  1541.       if((reqwindow->Flags & WINDOWACTIVE) != WINDOWACTIVE) {
  1542.           WindowToFront(reqwindow);
  1543.       ActivateWindow(reqwindow);
  1544. +     done = 0;
  1545.       do {
  1546.           Wait(1L << reqwindow->UserPort->mp_SigBit);
  1547.           while(Msg = (struct IntuiMessage *)GetMsg(reqwindow->UserPort)) {
  1548. ***************
  1549. *** 181,188 ****
  1550.           ReplyMsg((struct Message *)Msg);
  1551.           if(class == NEWSIZE)
  1552.               ReqNewSize(reqwindow->Height, reqwindow->Width);
  1553.           }
  1554. !     } while (class != ACTIVEWINDOW);
  1555.       }
  1556.       
  1557.       /* here is where we pre-select the gadget   */
  1558. --- 210,219 ----
  1559.           ReplyMsg((struct Message *)Msg);
  1560.           if(class == NEWSIZE)
  1561.               ReqNewSize(reqwindow->Height, reqwindow->Width);
  1562. +         if(class == ACTIVEWINDOW)
  1563. +             done = 1;
  1564.           }
  1565. !     } while(!done);
  1566.       }
  1567.       
  1568.       /* here is where we pre-select the gadget   */
  1569. ***************
  1570. *** 198,204 ****
  1571.   
  1572.       /* try once more before giving up... */
  1573.       ActivateGadget(&mystrgad,reqwindow,&myrequest);
  1574. !     }
  1575.   
  1576.       /* wait for input to show up */
  1577.       while (1) {
  1578. --- 229,235 ----
  1579.   
  1580.       /* try once more before giving up... */
  1581.       ActivateGadget(&mystrgad,reqwindow,&myrequest);
  1582. !     }
  1583.   
  1584.       /* wait for input to show up */
  1585.       while (1) {
  1586. ***************
  1587. *** 206,212 ****
  1588.           GetMsg(reqwindow->UserPort)) == FALSE) {
  1589.           Wait(1L<<reqwindow->UserPort->mp_SigBit);
  1590.           continue;
  1591. !         }
  1592.       class = NewMessage->Class;
  1593.       ReplyMsg((struct Message *)NewMessage);
  1594.   
  1595. --- 237,243 ----
  1596.           GetMsg(reqwindow->UserPort)) == FALSE) {
  1597.           Wait(1L<<reqwindow->UserPort->mp_SigBit);
  1598.           continue;
  1599. !     }
  1600.       class = NewMessage->Class;
  1601.       ReplyMsg((struct Message *)NewMessage);
  1602.   
  1603. ***************
  1604. *** 216,224 ****
  1605.       if(class == NEWSIZE)
  1606.           ReqNewSize(reqwindow->Height, reqwindow->Width);
  1607.           
  1608. !     /* maybe this is a menu item to handle */
  1609. ! /*    if (class == MENUPICK) handle_menupick(class,code); */
  1610. !     }
  1611.   
  1612.       /* all done, so return the result */
  1613.       numreqs = 0;
  1614. --- 247,253 ----
  1615.       if(class == NEWSIZE)
  1616.           ReqNewSize(reqwindow->Height, reqwindow->Width);
  1617.           
  1618. !     }
  1619.   
  1620.       /* all done, so return the result */
  1621.       numreqs = 0;
  1622. ***************
  1623. *** 254,264 ****
  1624.       {
  1625.       static char wrap_flag = 0;    /* are we at column 80? */
  1626.   
  1627. -     c &= 0x7F;
  1628.       switch( c )
  1629.       {
  1630.       case '\t':
  1631. !     x += (Ysize * 8) - ((x-MINX) % (Ysize * 8));
  1632.       break;
  1633.   
  1634.       case 10:  /* lf */
  1635. --- 283,292 ----
  1636.       {
  1637.       static char wrap_flag = 0;    /* are we at column 80? */
  1638.   
  1639.       switch( c )
  1640.       {
  1641.       case '\t':
  1642. !     x += (Xsize * 8) - ((x-MINX) % (Xsize * 8));
  1643.       break;
  1644.   
  1645.       case 10:  /* lf */
  1646. ***************
  1647. *** 691,698 ****
  1648.       if(init) {
  1649.       myrequest.LeftEdge = (myrequest.LeftEdge * Xsize) + 5;
  1650.       myrequest.TopEdge  = (myrequest.TopEdge  * Ysize) + 2;
  1651. !     myrequest.Width    = (myrequest.Width    * Ysize) + 4;
  1652. !     myrequest.Height   = (myrequest.Height   * Xsize) + 6;
  1653.   
  1654.       mydonegad.LeftEdge = (mydonegad.LeftEdge * Xsize) + 2;
  1655.       mydonegad.TopEdge  = (mydonegad.TopEdge  * Ysize) + 2;
  1656. --- 719,726 ----
  1657.       if(init) {
  1658.       myrequest.LeftEdge = (myrequest.LeftEdge * Xsize) + 5;
  1659.       myrequest.TopEdge  = (myrequest.TopEdge  * Ysize) + 2;
  1660. !     myrequest.Width    = (myrequest.Width    * Xsize) + 4;
  1661. !     myrequest.Height   = (myrequest.Height   * Ysize) + 6;
  1662.   
  1663.       mydonegad.LeftEdge = (mydonegad.LeftEdge * Xsize) + 2;
  1664.       mydonegad.TopEdge  = (mydonegad.TopEdge  * Ysize) + 2;
  1665. ***************
  1666. *** 701,708 ****
  1667.   
  1668.       mystrgad.LeftEdge  = (mystrgad.LeftEdge * Xsize) + 2;
  1669.       mystrgad.TopEdge   = (mystrgad.TopEdge  * Ysize) + 4;
  1670. !     mystrgad.Width     = (mystrgad.Width    * Ysize) + 0;
  1671. !     mystrgad.Height    = (mystrgad.Height   * Xsize) + 2;
  1672.   
  1673.       donetxt.LeftEdge   = (donetxt.LeftEdge  * Xsize) + 0;
  1674.       donetxt.TopEdge    = (donetxt.TopEdge   * Ysize) + 0;
  1675. --- 729,736 ----
  1676.   
  1677.       mystrgad.LeftEdge  = (mystrgad.LeftEdge * Xsize) + 2;
  1678.       mystrgad.TopEdge   = (mystrgad.TopEdge  * Ysize) + 4;
  1679. !     mystrgad.Width     = (mystrgad.Width    * Xsize) + 0;
  1680. !     mystrgad.Height    = (mystrgad.Height   * Ysize) + 2;
  1681.   
  1682.       donetxt.LeftEdge   = (donetxt.LeftEdge  * Xsize) + 0;
  1683.       donetxt.TopEdge    = (donetxt.TopEdge   * Ysize) + 0;
  1684. Index: xmodem.c
  1685. *** ./xmodem.c    Tue Feb 13 09:54:55 1990
  1686. --- ../2.9A/xmodem.c    Tue Feb 13 09:55:09 1990
  1687. ***************
  1688. *** 1,7 ****
  1689. --- 1,19 ----
  1690. + static char rcsid[] = "$RCSfile: xmodem.c,v $ $Revision: 1.3 $";
  1691. + 
  1692.   /*************************************************************
  1693.    * vt100 terminal emulator - XMODEM protocol support
  1694.    *            :ts=8
  1695.    *
  1696. +  * $Log:    xmodem.c,v $
  1697. +  * Revision 1.3  89/12/14  20:33:37  acs
  1698. +  * 1) Use longs for byte count in xmodem transfers.
  1699. +  * 2) Remove commented out code.
  1700. +  * 
  1701. +  * Revision 1.2  89/12/12  13:39:05  acs
  1702. +  * multi_xfer() will pass "$" to called routines.  This means that
  1703. +  * XMODEM_Read_File(), XMODEM_Send_File() and the kermit routines need
  1704. +  * to check for a filename == "$".
  1705. +  * 
  1706.    *    v2.9 ACS - multi_xfer() no longer looks for $ -- kermit does,
  1707.    *           readchar() now infers ttime of 100,000 micros if ttime == 0
  1708.    *           (for newkermit); readchar() doesn't output a TIMED OUT msg
  1709. ***************
  1710. *** 287,292 ****
  1711. --- 299,307 ----
  1712.       unsigned short crc;
  1713.       char    scrstr2[40];
  1714.   
  1715. +     if(strcmp(file, "$") == 0)
  1716. +     return TRUE;
  1717. + 
  1718.       bytes_xferred = 0L;
  1719.       ttime = TTIME_SHORT;
  1720.   
  1721. ***************
  1722. *** 320,327 ****
  1723.       }
  1724.   
  1725.       if  (firstchar == SOH) {
  1726. !         sprintf(scrstr2,"%s: Block: %4d Bytes: %d",
  1727. !             p_xproto==2?"XmodemCRC":"Xmodem", sectnum, sectnum*SECSIZ);
  1728.           InfoMsgNoScroll(scrstr2);
  1729.           sectcurr = readchar();
  1730.           if (timeout != GOODREAD)
  1731. --- 335,343 ----
  1732.       }
  1733.   
  1734.       if  (firstchar == SOH) {
  1735. !         sprintf(scrstr2,"%s: Block: %4d Bytes: %ld",
  1736. !             p_xproto==2?"XmodemCRC":"Xmodem", sectnum,
  1737. !             ((long)sectnum)*SECSIZ);
  1738.           InfoMsgNoScroll(scrstr2);
  1739.           sectcurr = readchar();
  1740.           if (timeout != GOODREAD)
  1741. ***************
  1742. *** 363,373 ****
  1743.                   goto exit;
  1744.               } else {
  1745.               errors = 0;
  1746. - /*            sprintf(scrstr2,"Block %4d verified",sectnum); */
  1747.               sectnum++;
  1748.               bufptr += SECSIZ;
  1749.               bytes_xferred += SECSIZ;
  1750. - /*            InfoMsgNoScroll(scrstr2); */
  1751.               if (bufptr == BufSize) {
  1752.                   if (write(fd, bufr, BufSize-SECSIZ) == EOF) {
  1753.                   InfoMsg1Line("XMODEM: Error Writing File");
  1754. --- 379,387 ----
  1755. ***************
  1756. *** 433,438 ****
  1757. --- 447,455 ----
  1758.       unsigned short crc;
  1759.       char    scrstr2[40];
  1760.   
  1761. +     if(strcmp(file, "$") == 0)
  1762. +     return TRUE;
  1763. + 
  1764.       bytes_xferred = 0;
  1765.       ttime = TTIME_LONG;
  1766.   
  1767. ***************
  1768. *** 474,481 ****
  1769.       bufptr = 0;
  1770.       while (bytes_to_send > 0 && attempts != RETRYMAX) {
  1771.           attempts = 0;
  1772. !         sprintf(scrstr2,"%s: Sending Block: %4d Bytes: %d",
  1773. !             use_crc?"XmodemCRC":"Xmodem", sectnum, sectnum*SECSIZ);
  1774.           size = SECSIZ <= bytes_to_send ? SECSIZ : bytes_to_send;
  1775.           bytes_to_send -= size;
  1776.           do {
  1777. --- 491,499 ----
  1778.       bufptr = 0;
  1779.       while (bytes_to_send > 0 && attempts != RETRYMAX) {
  1780.           attempts = 0;
  1781. !         sprintf(scrstr2,"%s: Sending Block: %4d Bytes: %ld",
  1782. !             use_crc?"XmodemCRC":"Xmodem", sectnum,
  1783. !             ((long)sectnum)*SECSIZ);
  1784.           size = SECSIZ <= bytes_to_send ? SECSIZ : bytes_to_send;
  1785.           bytes_to_send -= size;
  1786.           do {
  1787. ***************
  1788. *** 514,521 ****
  1789.           } while ((c != ACK) && (attempts != RETRYMAX));
  1790.           bufptr += size;
  1791.           bytes_xferred += size;
  1792. - /*        sprintf(scrstr2,"Sent    block %4d",sectnum);
  1793. -         InfoMsgNoScroll(scrstr2); */
  1794.           sectnum++;
  1795.       }
  1796.       }
  1797. --- 532,537 ----
  1798. ***************
  1799. *** 556,567 ****
  1800.       int status;
  1801.       char *p, *name_start;
  1802.   
  1803.       timeout = USERABORT - 1;
  1804.       for(p=name_start=name; !done && timeout != USERABORT; name_start=++p)
  1805.       {
  1806. -     if (*(name_start+1) == '\0')
  1807. -         return;
  1808. - 
  1809.       while(*p == ' ') p++;
  1810.       while(*p && *p != ',' && *p != ' ') p++;
  1811.       if (*p == '\0') {
  1812. --- 572,581 ----
  1813.       int status;
  1814.       char *p, *name_start;
  1815.   
  1816. +     fd = -1;
  1817.       timeout = USERABORT - 1;
  1818.       for(p=name_start=name; !done && timeout != USERABORT; name_start=++p)
  1819.       {
  1820.       while(*p == ' ') p++;
  1821.       while(*p && *p != ',' && *p != ' ') p++;
  1822.       if (*p == '\0') {
  1823. ***************
  1824. *** 573,579 ****
  1825.       *p = '\0';
  1826.   
  1827.       status = ((*mode)(name_start, multi));
  1828. !     if (status == FALSE) close(fd);
  1829.       }
  1830.       server = 0;
  1831.       multi = 0;
  1832. --- 587,593 ----
  1833.       *p = '\0';
  1834.   
  1835.       status = ((*mode)(name_start, multi));
  1836. !     if (status == FALSE && fd >= 0) close(fd);
  1837.       }
  1838.       server = 0;
  1839.       multi = 0;
  1840.